home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 60.zip / BS1 part 60 / Helm d4.adf / PigLatin (.txt) < prev    next >
Helm Multimedia Book  |  1993-07-14  |  16KB  |  289 lines

  1.     test.book
  2.     18-Dec-92
  3. New...
  4. Open...
  5. Make Copy...
  6. Streamline...
  7. Print...
  8.     Report...
  9. Preferences...
  10.     Workbench
  11. Help...
  12. About...
  13. Quit...
  14. Paste
  15. Clear
  16. Select All
  17. Cut Page
  18.     Copy Page
  19. Colors
  20. Load...
  21. Save...
  22. Restore Colors
  23. Default Colors
  24. Brush Colors
  25. Image Colors
  26. Cycle
  27. Grid...
  28. Stop Sound
  29. Show All
  30.     Edit Form
  31. Share
  32.     Next Page
  33. Previous Page
  34. First Page
  35.     Last Page
  36. Backward
  37. Forward
  38.     Last Book
  39.     Browse...
  40. Autobrowse...
  41.     Bookshelf
  42. New Page
  43. Delete Page
  44. New Form
  45. Load Form...
  46. Save Form...
  47. Image
  48. Load...
  49. Save...
  50. Capture...
  51.     Clipboard
  52. Paste
  53. Spare
  54. Swap Frames
  55. Copy to Spare
  56. Merge in Front
  57. Merge in Back
  58. Delete Spare
  59. Frame
  60. Previous
  61. Delete
  62. Copy to All
  63. Color
  64. Remap
  65. Transparency
  66. Paper <-> Pen
  67. Paper ->  Pen
  68. Count
  69. Vertical
  70. Horizontal
  71. Info...
  72. Brush
  73. Load...
  74. Save...
  75. Restore
  76.     Clipboard
  77. Paste
  78. Color
  79. Remap
  80. Transparency
  81. Paper <-> Pen
  82. Paper ->  Pen
  83. Center
  84. Corner
  85.     Any Point
  86. Any Size
  87. Halve
  88. Double
  89. Halve Width
  90. Halve Height
  91. Double Width
  92. Double Height
  93. To PAL
  94. To NTSC
  95. Vertical
  96. Horizontal
  97. Shear
  98. Vertical
  99. Horizontal
  100. Rotate
  101.     Any Angle
  102. Paint
  103. Matte
  104. Color
  105. Replace
  106. Smear
  107. Dissolve
  108. Spare
  109. Cycle
  110. Cycle 2
  111. Gradient
  112. Gradient 2
  113. Smudge
  114. Chaos
  115. Count
  116. Custom
  117. Dither
  118. Edges
  119. Object
  120. Load...
  121. Save...
  122. Bring to Front
  123. Send to Back
  124. Bring Closer
  125. Send Farther
  126. Group
  127. Ungroup
  128. Duplicate...
  129. Align...
  130. Info...
  131. Actions...
  132.     Script...
  133. Load...
  134. Save...
  135. Plain
  136.     Underline
  137. Italic
  138. Shadow
  139. Font...
  140. Spacing...
  141.     Hypertext
  142. Actions...
  143.     Script...
  144. Tools
  145. Coordinates
  146.     Title Bar
  147. Palette
  148. Colors
  149. Patterns
  150. Paint Tools
  151. Paint Types
  152.     Histogram
  153.     Magnifier
  154. Messages
  155. Draw Tools
  156. Layers
  157. Pages
  158. Author
  159. Book...
  160. Form...
  161. Page...
  162. Display...
  163. Menus...
  164. Narrator...
  165. Hypertext...
  166. Resources...
  167.     Effect...
  168. Effect Area
  169. DDDUUUfffwww
  170. Basic22
  171. topaz.font
  172. FONTS:Basic/22
  173. RAM:test.book
  174. DDDUUUfffwww
  175. Pig Latin Appears Here
  176. Type English into the
  177. top textfield and press
  178. return. The computer
  179. will translate it into
  180. Pig Latin and put the
  181. translation into the
  182. second textfield.
  183. PIG  LATIN
  184. Type English Here
  185.     Bookshelf
  186. Go Back
  187. on FieldReturn
  188. begin
  189.   put "ch gh ph rh sh th wh sl kn " &
  190. "br cr dr fr gr kr pr tr wr " &
  191. "sc sp st bl cl fl gl kl pl " into dipthongs
  192.   put the number of words of textfield id 1 into n
  193.   put textfield id 1 into the Phrase
  194.   for index = 1 to n begin
  195. put word index of the Phrase into OneWord
  196. if char 1 to 2 of OneWord is in dipthongs begin
  197. put char 1 to 2 of OneWord after OneWord
  198. delete char 1 to 2 of OneWord
  199. put OneWord & "ay " after the NewPhrase
  200. else begin
  201. if char 1 of OneWord is in "aeiou"
  202. put "way" after OneWord
  203. else begin
  204. put char 1 of OneWord after OneWord
  205. put "ay" after OneWord
  206. delete char 1 of OneWord
  207. put OneWord & space after the NewPhrase
  208.   end
  209.   put the number of words of the NewPhrase into n
  210.   for i = 1 to n begin
  211. put the number of characters of word i of the NewPhrase into m
  212. for j = 1 to m begin
  213. if char j of word i of the NewPhrase is in ",.?;:!" then begin
  214.     put char j of word i of the NewPhrase after
  215. (word i of the NewPhrase
  216.     delete char j of word i of the NewPhrase
  217.   end
  218.   put the NewPhrase into textfield id 3
  219.   say the NewPhrase
  220. ch gh ph rh sh th wh sl kn 
  221. br cr dr fr gr kr pr tr wr 
  222. sc sp st bl cl fl gl kl pl 
  223. aeiou
  224. ,.?;:!
  225. won PageOpen
  226. begin
  227.   Put "Type English Here" into textfield id 1
  228.   put "Pig Latin Appears Here" into textfield id 3
  229. Type English Here
  230. Pig Latin Appears Here
  231. TITLE                           
  232. (j(ox
  233. Pig Latin Appears Here
  234. Type English into the
  235. top textfield and press
  236. return. The computer
  237. will translate it into
  238. Pig Latin and put the
  239. translation into the
  240. second textfield.
  241. PIG  LATIN
  242. Type English Here
  243.     Bookshelf
  244. Go Back
  245. on FieldReturn
  246. begin
  247.   put "ch gh ph rh sh th wh sl kn " &
  248. "br cr dr fr gr kr pr tr wr " &
  249. "sc sp st bl cl fl gl kl pl " into dipthongs
  250.   put the number of words of textfield id 1 into n
  251.   put textfield id 1 into the Phrase
  252.   for index = 1 to n begin
  253. put word index of the Phrase into OneWord
  254. if char 1 to 2 of OneWord is in dipthongs begin
  255. put char 1 to 2 of OneWord after OneWord
  256. delete char 1 to 2 of OneWord
  257. put OneWord & "ay " after the NewPhrase
  258. else begin
  259. if char 1 of OneWord is in "aeiou"
  260. put "way" after OneWord
  261. else begin
  262. put char 1 of OneWord after OneWord
  263. put "ay" after OneWord
  264. delete char 1 of OneWord
  265. put OneWord & space after the NewPhrase
  266.   end
  267.   put the number of words of the NewPhrase into n
  268.   for i = 1 to n begin
  269. put the number of characters of word i of the NewPhrase into m
  270. for j = 1 to m begin
  271. if char j of word i of the NewPhrase is in ",.?;:!" then begin
  272.     put char j of word i of the NewPhrase after
  273. (word i of the NewPhrase
  274.     delete char j of word i of the NewPhrase
  275.   end
  276.   put the NewPhrase into textfield id 3
  277.   say the NewPhrase
  278. ch gh ph rh sh th wh sl kn 
  279. br cr dr fr gr kr pr tr wr 
  280. sc sp st bl cl fl gl kl pl 
  281. aeiou
  282. ,.?;:!
  283. won PageOpen
  284. begin
  285.   Put "Type English Here" into textfield id 1
  286.   put "Pig Latin Appears Here" into textfield id 3
  287. Type English Here
  288. Pig Latin Appears Here
  289.